home *** CD-ROM | disk | FTP | other *** search
/ Bubka 15 / Bubka 15.iso / html / puzzle / 04.dcr / 00009_kaiten1.ls < prev    next >
Encoding:
Text File  |  2002-07-20  |  302 b   |  10 lines

  1. on exitFrame me
  2.   global withlist
  3.   repeat with i = 51 to 80
  4.     if getAt(withlist, i - 50) = 0 then
  5.       set the loc of sprite i to the loc of sprite i + ((the loc of sprite (i - 40) - the loc of sprite i) / 8 * (the frame - 10))
  6.       sprite(i).rotation = random(8) * 45
  7.     end if
  8.   end repeat
  9. end
  10.